home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / c / pdc / libsrc / stringlib / strspn.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-04-07  |  481 b   |  28 lines
  1. /*
  2.  * strspn - find length of initial segment of s consisting entirely
  3.  * of characters from accept
  4.  */
  5.  
  6. #include "config.h"
  7.  
  8. SIZET
  9. strspn(s, accept)
  10. CONST char *s;
  11. CONST char *accept;
  12. {
  13.     register CONST char *sscan;
  14.     register CONST char *ascan;
  15.     register SIZET count;
  16.  
  17.     count = 0;
  18.     for (sscan = s; *sscan != '\0'; sscan++) {
  19.         for (ascan = accept; *ascan != '\0'; ascan++)
  20.             if (*sscan == *ascan)
  21.                 break;
  22.         if (*ascan == '\0')
  23.             return(count);
  24.         count++;
  25.     }
  26.     return(count);
  27. }
  28.